﻿Imports System.Data.SqlClient
Public Class DF11
    Inherits Conexion
    Dim cmd As New SqlCommand
    Public Function guardar(ByVal dts As Entidades.EF11Vehiculos) As Boolean
        Try
            conectado()
            cmd = New SqlCommand("sp_guardar_F11")
            cmd.CommandType = CommandType.StoredProcedure
            cmd.Connection = cnn
            cmd.Parameters.AddWithValue("@numform", dts.numformu)
            cmd.Parameters.AddWithValue("@dominio", dts.domini)
            cmd.Parameters.AddWithValue("@indica", dts.indicaa)
            cmd.Parameters.AddWithValue("@nomapevend", dts.nomapevendd)
            cmd.Parameters.AddWithValue("@soltero", dts.solteroo)
            cmd.Parameters.AddWithValue("@casado", dts.casadoo)
            cmd.Parameters.AddWithValue("@viudo", dts.viudoo)
            cmd.Parameters.AddWithValue("@div", dts.divv)
            cmd.Parameters.AddWithValue("@numnupcia", dts.numnupciaa)
            cmd.Parameters.AddWithValue("@nomapeapod", dts.nomapeapodd)
            cmd.Parameters.AddWithValue("@dni", dts.dnii)
            cmd.Parameters.AddWithValue("@le", dts.lee)
            cmd.Parameters.AddWithValue("@lc", dts.lcc)
            cmd.Parameters.AddWithValue("@ci", dts.cii)
            cmd.Parameters.AddWithValue("@pasap", dts.pasapp)
            cmd.Parameters.AddWithValue("@num", dts.numm)
            cmd.Parameters.AddWithValue("@autoridad", dts.autoridadd)
            cmd.Parameters.AddWithValue("@apenomconyvend", dts.apenomconyvendd)
            cmd.Parameters.AddWithValue("@apenomconyapod", dts.apenomconyapodd)
            cmd.Parameters.AddWithValue("@dnia", dts.dniaa)
            cmd.Parameters.AddWithValue("@lea", dts.leaa)
            cmd.Parameters.AddWithValue("@lca", dts.lcaa)
            cmd.Parameters.AddWithValue("@pasapa", dts.pasapaa)
            cmd.Parameters.AddWithValue("@numa", dts.numaa)
            cmd.Parameters.AddWithValue("@autoridada", dts.autoridadaa)
            cmd.Parameters.AddWithValue("@posesion", dts.posesionn)
            cmd.Parameters.AddWithValue("@tenencia", dts.tenenciaa)
            cmd.Parameters.AddWithValue("@lugar", dts.lugarr)
            cmd.Parameters.AddWithValue("@dia", dts.diaa)
            cmd.Parameters.AddWithValue("@mes", dts.mess)
            cmd.Parameters.AddWithValue("@año", dts.añoo)

            If cmd.ExecuteNonQuery Then
                Return True
            Else
                Return False
            End If

        Catch ex As Exception
            MsgBox(ex.Message)
        End Try
        desconectado()
    End Function


    Public Function modificar(ByVal dts As Entidades.EF11Vehiculos) As Boolean
        Try
            conectado()
            cmd = New SqlCommand("sp_editar_F11")
            cmd.CommandType = CommandType.StoredProcedure
            cmd.Connection = cnn
            cmd.Parameters.AddWithValue("@numform", dts.numformu)
            cmd.Parameters.AddWithValue("@dominio", dts.domini)
            cmd.Parameters.AddWithValue("@indica", dts.indicaa)
            cmd.Parameters.AddWithValue("@nomapevend", dts.nomapevendd)
            cmd.Parameters.AddWithValue("@soltero", dts.solteroo)
            cmd.Parameters.AddWithValue("@casado", dts.casadoo)
            cmd.Parameters.AddWithValue("@viudo", dts.viudoo)
            cmd.Parameters.AddWithValue("@div", dts.divv)
            cmd.Parameters.AddWithValue("@numnupcia", dts.numnupciaa)
            cmd.Parameters.AddWithValue("@nomapeapod", dts.nomapeapodd)
            cmd.Parameters.AddWithValue("@dni", dts.dnii)
            cmd.Parameters.AddWithValue("@le", dts.lee)
            cmd.Parameters.AddWithValue("@lc", dts.lcc)
            cmd.Parameters.AddWithValue("@ci", dts.cii)
            cmd.Parameters.AddWithValue("@pasap", dts.pasapp)
            cmd.Parameters.AddWithValue("@num", dts.numm)
            cmd.Parameters.AddWithValue("@autoridad", dts.autoridadd)
            cmd.Parameters.AddWithValue("@apenomconyvend", dts.apenomconyvendd)
            cmd.Parameters.AddWithValue("@apenomconyapod", dts.apenomconyapodd)
            cmd.Parameters.AddWithValue("@dnia", dts.dniaa)
            cmd.Parameters.AddWithValue("@lea", dts.leaa)
            cmd.Parameters.AddWithValue("@lca", dts.lcaa)
            cmd.Parameters.AddWithValue("@pasapa", dts.pasapaa)
            cmd.Parameters.AddWithValue("@numa", dts.numaa)
            cmd.Parameters.AddWithValue("@autoridada", dts.autoridadaa)
            cmd.Parameters.AddWithValue("@posesion", dts.posesionn)
            cmd.Parameters.AddWithValue("@tenencia", dts.tenenciaa)
            cmd.Parameters.AddWithValue("@lugar", dts.lugarr)
            cmd.Parameters.AddWithValue("@dia", dts.diaa)
            cmd.Parameters.AddWithValue("@mes", dts.mess)
            cmd.Parameters.AddWithValue("@año", dts.añoo)

            If cmd.ExecuteNonQuery Then
                Return True
            Else
                Return False
            End If

        Catch ex As Exception
            MsgBox(ex.Message)
        End Try
        desconectado()
    End Function
End Class
